Para consultar tus dudas escribe un correo a josujara@ucm.es
123456789
abcdefghijklmnñopqrstuvwxyz
---
title: "Alumnado UCM"
author: "Jara, J."
date: "`r Sys.Date()`"
output:
flexdashboard::flex_dashboard:
source_code: embed
theme: spacelab
social: [ "twitter", "facebook", "youtube" ]
navbar:
- { title: "UCM web", href: "https://www.ucm.es", align: left }
orientation: rows
vertical_layout: scroll
---
```{r setup, include=FALSE}
library(flexdashboard)
library(readr)
library(dplyr)
library(ggplot2)
library(DT)
library(plotly)
df <- read_delim("datos_tratados.csv", delim = ";")
df$CURSO <- factor(df$CURSO)
df$CENTRO <- factor(df$CENTRO)
```
# Datos de alumnado
## Columna 1
### Tabla de datos
```{r}
tabla_interactiva <- datatable(df, options = list(pageLenght = 25))
tabla_interactiva
```
## Columna 2
### Alumnos por curso
```{r fig.width=7, fig.height=7}
ggplot(df, aes(x = CURSO, y = TOTAL)) +
geom_col(fill = "lightblue") +
labs(title = "Estudiantes por curso", x = "Curso", y = "Alumnos/as",
) +
theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1, size = 8))
```
### Información de interés
Para consultar tus dudas escribe un correo a _josujara@ucm.es_
# Brecha de género
## Diferencias de género por centro
```{r}
grouped_data <- df %>%
group_by(CENTRO) %>%
select(CURSO, TOTAL_HOMBRES, TOTAL_MUJERES) %>%
summarise(across(where(is.numeric), sum))
DT::datatable(grouped_data, options = list( pageLength = 15))
```
## Columna D
### Componente de texto2
# Otros
## Columna E
### Números
123456789
## Columna F
### Letras
abcdefghijklmnñopqrstuvwxyz